home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / pref / 14Point.fsc < prev    next >
Text File  |  2001-11-04  |  2KB  |  51 lines
  1. #
  2. # $Id: 14Point.fsc,v 1.1.1.1.2.1 2001/11/04 05:24:15 idiscovery Exp $
  3. #
  4. proc tixPref:InitFontSet:14Point {} { 
  5.  
  6.  
  7.     global tixOption tcl_platform
  8.  
  9.     switch -- $tcl_platform(platform) "windows" {
  10.     if {$tcl_platform(osVersion) < 5} {
  11.         set font "MS Sans Serif"
  12.     } else {
  13.         set font "Tahoma"
  14.     }
  15.     set fixedfont "Courier New"
  16.     set bd 1
  17.     } unix {
  18.     set font "helvetica"
  19.     set fixedfont "courier"
  20.     set bd 2
  21.     }
  22.  
  23.     set tixOption(font)         [list $font -14]
  24.     set tixOption(bold_font)    [list $font -14 bold]
  25.     set tixOption(menu_font)    [list $font -14]
  26.     set tixOption(italic_font)  [list $font -14 bold italic]
  27.     set tixOption(fixed_font)   [list $fixedfont -14]
  28.     set tixOption(border1)      $bd
  29.  
  30. }
  31. proc tixPref:SetFontSet:14Point {} { 
  32. global tixOption
  33. option add *Font            $tixOption(font) $tixOption(prioLevel)
  34. option add *font            $tixOption(font) $tixOption(prioLevel)
  35. option add *Menu.font            $tixOption(menu_font) $tixOption(prioLevel)
  36. option add *TixMenu.font            $tixOption(menu_font) $tixOption(prioLevel)
  37. option add *Menubutton.font            $tixOption(menu_font) $tixOption(prioLevel)
  38. option add *Label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  39. option add *Scale.font            $tixOption(italic_font) $tixOption(prioLevel)
  40. option add *TixBalloon*Label.font             $tixOption(font) $tixOption(prioLevel)
  41. option add *TixBitmapButton*label.font             $tixOption(font) $tixOption(prioLevel)
  42. option add *TixControl*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  43. option add *TixLabelEntry*label.font                  $tixOption(bold_font) $tixOption(prioLevel)
  44. option add *TixLabelFrame*label.font              $tixOption(bold_font) $tixOption(prioLevel)
  45. option add *TixMwmClient*title.font            $tixOption(menu_font) $tixOption(prioLevel)
  46. option add *TixNoteBook.nbframe.font            $tixOption(menu_font) $tixOption(prioLevel)
  47. option add *TixOptionMenu*menubutton.font        $tixOption(font) $tixOption(prioLevel)
  48. option add *TixComboBox*Entry.font                $tixOption(font) $tixOption(prioLevel)
  49. option add *TixFileSelectBox*Label.font                    $tixOption(bold_font) $tixOption(prioLevel)
  50. }
  51.